<% Dim tn, key_id, b_No, page, types, keyword, searchword tn = ClearVar("tn") key_id = ClearVar("key_id") b_No = ClearVar("b_No") page = ClearVar("page") keyword = ClearVar("keyword") searchword = ClearVar("searchword") types = ClearVar("types") viewType = ClearVar("viewType") IF viewType = "cert" Then Set RS = Server.CreateObject("ADODB.RecordSet") '================================================== ' ÀÎÁõó¸® ºñ¹Ð¹øÈ£ üũ '================================================== secret_name = ClearVar("secret_name") secret_pass = ClearVar("secret_pass") SQL = "Select * From "& tn &" Where writer='"& secret_name &"' And pwd='"& secret_pass &"' And No="& b_No &"" 'Response.Write SQL 'Response.End Set RS = DB.Execute (SQL) IF Not RS.Eof Then Else ErrorPage(18) End IF RS.Close Set RS = Nothing Else End IF DB.Execute ("Update "& tn &" Set readcount = readcount + 1 Where no="& b_No &" ") DB.Close Set DB = Nothing Response.Redirect "./bbs_view.asp?tn="& tn &"&key_id="& key_id &"&b_no="& b_No &"&page="& page &"&searchword="& searchword &"&keyword="& keyword &"&types="& types &"" %>